home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / CRYSTAL / XGRFMGR.MOD < prev   
Encoding:
Modula Implementation  |  1992-05-28  |  1.7 KB  |  74 lines
  1. IMPLEMENTATION MODULE XGrfMgr;
  2.  
  3. (*
  4. AES Extended Grafics Manager.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*IMP_SWITCHES*)
  10.  
  11. FROM AES    IMPORT IntIn,IntOut,crystal;
  12. FROM PORTAB IMPORT UNSIGNEDWORD,SIGNEDWORD;
  13. FROM RcMgr  IMPORT GRect,GPnt;
  14. AES_SYSTEM_IMPORT
  15.  
  16. #if Seimet
  17. CONST F130 = 082060600H;
  18.       F131 = 083090100H;
  19. #endif
  20.  
  21. PROCEDURE XGrfStepCalc(    OrgW : UNSIGNEDWORD;
  22.                            OrgH : UNSIGNEDWORD;
  23.                            EndR : GRect;
  24.                        VAR CXY  : GPnt;
  25.                        VAR Cnt  : UNSIGNEDWORD;
  26.                        VAR XStep: SIGNEDWORD;
  27.                        VAR YStep: SIGNEDWORD);
  28. BEGIN
  29.   WITH IntIn DO
  30.     Array[0]:= OrgW;
  31.     Array[1]:= OrgH;
  32.     WITH EndR DO
  33.       Array[2]:= GX;
  34.       Array[3]:= GY;
  35.       Array[4]:= GW;
  36.       Array[5]:= GH;
  37.     END;
  38.   END;
  39.   crystal(130,6,6,0);
  40.   WITH CXY DO
  41.     GX:= IntOut[1];
  42.     GY:= IntOut[2];
  43.   END;
  44.   Cnt:= IntOut[3];
  45.   XStep:= IntOut[4];
  46.   YStep:= IntOut[5];
  47. END XGrfStepCalc;
  48.  
  49. PROCEDURE XGrf2Box(StartX : SIGNEDWORD;
  50.                    StartY : SIGNEDWORD;
  51.                    StartW : UNSIGNEDWORD;
  52.                    StartH : UNSIGNEDWORD;
  53.                    Corners: BOOLEAN;
  54.                    Cnt    : UNSIGNEDWORD;
  55.                    XStep  : SIGNEDWORD;
  56.                    YStep  : SIGNEDWORD;
  57.                    Doubled: BOOLEAN);
  58. BEGIN
  59.   WITH IntIn DO
  60.     Array[0]:= Cnt;
  61.     Array[1]:= XStep;
  62.     Array[2]:= YStep;
  63.     Array[3]:= ORD(Doubled);
  64.     Array[4]:= ORD(Corners);
  65.     Array[5]:= StartX;
  66.     Array[6]:= StartY;
  67.     Array[7]:= StartW;
  68.     Array[8]:= StartH;
  69.   END;
  70.   crystal(131,9,1,0);
  71. END XGrf2Box;
  72.  
  73. END XGrfMgr.
  74.